home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-03
/
qbasicpg.zip
/
SHOW.BAS
< prev
next >
Wrap
BASIC Source File
|
1989-08-31
|
457b
|
26 lines
' SHOW.BAS
' This program lets you view a data file in the current directory.
CLS
PRINT "The current directory contains the following files with ";
PRINT "a .TXT extension:"
PRINT
FILES "*.TXT"
PRINT
INPUT "Which file would you like to display? ", filename$
OPEN filename$ FOR INPUT AS #1
PRINT
PRINT "---------- "; UCASE$(filename$); " ----------"
PRINT
DO WHILE (NOT EOF(1))
LINE INPUT #1, line$
PRINT line$
LOOP